home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1994 October / Macformat17.cdr / Shareware City / HyperCard / hyper-extras-hc / HyperExtras / HyperExtras.rsrc / TEXT_3006_handleCText.txt < prev    next >
Encoding:
Text File  |  1994-07-11  |  3.1 KB  |  90 lines
  1.   if the optionKey is up then
  2.     global HEXInfo, docard, dobg, dost
  3.     if docard is empty then put true into docard
  4.     if dobg is empty then put true into dobg
  5.     if dost is empty then put true into dost
  6.     put 0 into cnum
  7.     put "" into cdinf
  8.     put "" into bginf
  9.     put "" into stinf
  10.     put "     " into fiveSp
  11.     put "Δí    " into funcSp
  12.     if docard is true then
  13.       put the script of this cd into cret
  14.       repeat with x = 1 to the number of lines in cret
  15.         set cursor to busy
  16.         if word 1 of line x of cret is "on" then
  17.           put line x of cret into z
  18.           put fiveSp & word 2 to (number of words of z) of z & return after cdinf
  19.           add 1 to cnum
  20.         else
  21.           if word 1 of line x of cret is "function" then
  22.             put line x of cret into z
  23.             put funcSp & word 2 to (number of words of z) of z & return after cdinf
  24.             add 1 to cnum
  25.           end if
  26.         end if
  27.       end repeat
  28.       put cnum into cdnum
  29.     else
  30.       put "NOT COUNTED" into cdnum
  31.     end if
  32.     put 0 into cnum
  33.     if dobg is true then
  34.       put the script of this bg into bret
  35.       repeat with x = 1 to the number of lines in bret
  36.         set cursor to busy
  37.         if word 1 of line x of bret is "on" then
  38.           put line x of bret into z
  39.           put fiveSp & word 2 to (number of words of z) of z & return after bginf
  40.           add 1 to cnum
  41.         else
  42.           if word 1 of line x of bret is "function" then
  43.             put line x of bret into z
  44.             put funcSp & word 2 to (number of words of z) of z & return after bginf
  45.             add 1 to cnum
  46.           end if
  47.         end if
  48.       end repeat
  49.       put cnum into canum
  50.     else
  51.       put "NOT COUNTED" into canum
  52.     end if
  53.     put 0 into cnum
  54.     if dost is true then
  55.       put the script of this stack into sret
  56.       repeat with x = 1 to the number of lines in sret
  57.         set cursor to busy
  58.         if word 1 of line x of sret is "on" then
  59.           put line x of sret into z
  60.           put fiveSp & word 2 to (number of words of z) of z & return after stinf
  61.           add 1 to cnum
  62.         else
  63.           if word 1 of line x of sret is "function" then
  64.             put line x of sret into z
  65.             put funcSp & word 2 to (number of words of z) of z & return after stinf
  66.             add 1 to cnum
  67.           end if
  68.         end if
  69.       end repeat
  70.       put cnum into sanum
  71.     else
  72.       put "NOT COUNTED" into sanum
  73.     end if
  74.     put "COMMAND-CLICK ON A HANDLER NAME TO SEE THE SCRIPT"&return into anse
  75.     put "The number of handlers in cd script is"&&cdnum& return after anse
  76.     put cdinf after anse
  77.     put anse&"The number of handlers in bg script is"&&canum& return into anse
  78.     put bginf after anse
  79.     put anse&"The number of handlers in stack script is"&&sanum&return into anse
  80.     put stinf after anse
  81.     put anse into HEXInfo
  82.     if there is a window "handleCount" then
  83.       set text of window "handleCount" to HEXInfo
  84.     else
  85.       textoid "handleCount", HEXInfo, "10,10,323,162"
  86.       set unlockAllowed of window "handleCount" to false
  87.     end if
  88.   else
  89.     showHParam
  90.   end if